home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtable.dxr / 00013_--Init code.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  1.1 KB  |  27 lines
  1. global gDBTableVarList
  2.  
  3. on init windowTitle, mediaName
  4.   cursor(4)
  5.   if voidp(gDBTableVarList) then
  6.     gDBTableVarList = [:]
  7.   end if
  8.   register(xtra("Table"), "TABL100-236-69882")
  9.   register(xtra("PrintOMatic"), "PMAT155-212-06011")
  10.   member("title f", 1).text = windowTitle
  11.   if the machineType = 256 then
  12.     set the textHeight of member "title f" to 14
  13.   end if
  14.   member("print title f", 1).text = windowTitle
  15.   member("media f", 1).text = filterNonAlphaDig(mediaName)
  16.   xProp = GetObjProp()
  17.   addProp(gDBTableVarList, xProp, new(script("DB Table Var")))
  18.   MyObj = getaProp(gDBTableVarList, GetObjProp())
  19.   SetLibraryName(MyObj, mediaName)
  20.   SetSpriteList(MyObj, [#TableHilite: 15, #title: 5, #Header: 6, #border: 7, #ColumnBorder: 8, #table1: 9, #HBed: 20, #WArrow: 21, #EArrow: 22, #HThumb: 23, #VBed: 24, #NorthArrow: 25, #SArrow: 26, #VThumb: 27, #Footnote: 28, #closeBox: 30, #CopyButton: 31, #PrintButton: 32, #SaveButton: 33, #MaxMinBox: 34])
  21.   SetBorderRect(MyObj, [rect(0, 0, 464, 268), rect(0, 0, 640, 411)])
  22. end
  23.  
  24. on GetObjProp
  25.   return symbol(member("media f", 1).text)
  26. end
  27.